﻿Public Class clsGtProcedure
    Public Function selectGtProcedure(b_gt_sys_id As String, procedure_No As String) As DataTable
        Dim szSql As String = ""
        szSql &= "select * from sf.b_gt_procedure "
        szSql &= " where b_gt_sys_id= ? and procedure_No = ? "
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, b_gt_sys_id, procedure_No)
        If IsNothing(dt) Then
            selectGtProcedure = New DataTable
        Else
            selectGtProcedure = dt
        End If
    End Function
End Class
